home *** CD-ROM | disk | FTP | other *** search
/ Phase 2 / Phase 2.iso / toolalias / source / toolalias_gfx.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-08-05  |  5.0 KB  |  172 lines
  1. /*
  2.  *  Source generated with GadToolsBox V1.4
  3.  *  which is (c) Copyright 1991,92 Jaba Development
  4.  */
  5.  
  6. #include <exec/types.h>
  7. #include <intuition/intuition.h>
  8. #include <intuition/classes.h>
  9. #include <intuition/classusr.h>
  10. #include <intuition/imageclass.h>
  11. #include <intuition/gadgetclass.h>
  12. #include <libraries/gadtools.h>
  13. #include <graphics/displayinfo.h>
  14. #include <graphics/gfxbase.h>
  15. #include <clib/exec_protos.h>
  16. #include <clib/intuition_protos.h>
  17. #include <clib/gadtools_protos.h>
  18. #include <clib/graphics_protos.h>
  19. #include <clib/utility_protos.h>
  20. #include <string.h>
  21.  
  22. #include <pragmas/exec_pragmas.h>
  23. #include <pragmas/intuition_pragmas.h>
  24. #include <pragmas/gadtools_pragmas.h>
  25. #include <pragmas/graphics_pragmas.h>
  26. #include <pragmas/utility_pragmas.h>
  27.  
  28. #include "toolalias_gfx.h"
  29.  
  30. struct Screen         *Scr = NULL;
  31. APTR                   VisualInfo = NULL;
  32. struct Window         *ToolAliasWnd = NULL;
  33. struct Gadget         *ToolAliasGList = NULL;
  34. struct Gadget         *ToolAliasGadgets[12];
  35. UWORD                  ToolAliasLeft = 46;
  36. UWORD                  ToolAliasTop = 27;
  37. UWORD                  ToolAliasWidth = 254;
  38. UWORD                  ToolAliasHeight = 65;
  39. UBYTE                 *ToolAliasWdt = NULL;
  40.  
  41. struct TextAttr topaz8 = {
  42.     ( STRPTR )"topaz.font", 8, 0x00, 0x00 };
  43.  
  44. UWORD ToolAliasGTypes[] = {
  45.     STRING_KIND,
  46.     STRING_KIND,
  47.     BUTTON_KIND,
  48.     BUTTON_KIND,
  49.     BUTTON_KIND,
  50.     BUTTON_KIND,
  51.     BUTTON_KIND,
  52.     BUTTON_KIND,
  53.     BUTTON_KIND,
  54.     BUTTON_KIND,
  55.     BUTTON_KIND,
  56.     BUTTON_KIND
  57. };
  58.  
  59. struct NewGadget ToolAliasNGad[] = {
  60.     54, 4, 183, 12, (UBYTE *)"Old", NULL, GD_OldStr, PLACETEXT_LEFT ,NULL, NULL,
  61.     54, 17, 183, 12, (UBYTE *)"New", NULL, GD_NewStr, PLACETEXT_LEFT ,NULL, NULL,
  62.     54, 30, 29, 13, (UBYTE *)"<<", NULL, GD_StartBut, PLACETEXT_IN ,NULL, NULL,
  63.     83, 30, 29, 13, (UBYTE *)"<", NULL, GD_PrevBut, PLACETEXT_IN ,NULL, NULL,
  64.     112, 30, 33, 13, (UBYTE *)"Add", NULL, GD_AddBut, PLACETEXT_IN ,NULL, NULL,
  65.     178, 30, 29, 13, (UBYTE *)">", NULL, GD_NextBut, PLACETEXT_IN ,NULL, NULL,
  66.     208, 30, 29, 13, (UBYTE *)">>", NULL, GD_EndBut, PLACETEXT_IN ,NULL, NULL,
  67.     145, 30, 33, 13, (UBYTE *)"Del", NULL, GD_DelBut, PLACETEXT_IN ,NULL, NULL,
  68.     9, 46, 51, 13, (UBYTE *)"Save", NULL, GD_SaveBut, PLACETEXT_IN ,NULL, NULL,
  69.     127, 46, 51, 13, (UBYTE *)"Use", NULL, GD_UseBut, PLACETEXT_IN ,NULL, NULL,
  70.     186, 46, 51, 13, (UBYTE *)"Quit", NULL, GD_QuitBut, PLACETEXT_IN ,NULL, NULL,
  71.     68, 46, 51, 13, (UBYTE *)"Load", NULL, GD_LoadBut, PLACETEXT_IN ,NULL, NULL
  72. };
  73.  
  74. ULONG ToolAliasGTags[] = {
  75.     (GTST_MaxChars), 256, (TAG_DONE),
  76.     (GTST_MaxChars), 256, (TAG_DONE),
  77.     (TAG_DONE),
  78.     (TAG_DONE),
  79.     (TAG_DONE),
  80.     (TAG_DONE),
  81.     (TAG_DONE),
  82.     (TAG_DONE),
  83.     (TAG_DONE),
  84.     (TAG_DONE),
  85.     (TAG_DONE),
  86.     (TAG_DONE)
  87. };
  88.  
  89. int SetupScreen( void )
  90. {
  91.     if ( ! ( Scr = LockPubScreen((UBYTE * )"Workbench" )))
  92.         return( 1L );
  93.  
  94.     if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
  95.         return( 2L );
  96.  
  97.     return( 0L );
  98. }
  99.  
  100. void CloseDownScreen( void )
  101. {
  102.     if ( VisualInfo ) {
  103.         FreeVisualInfo( VisualInfo );
  104.         VisualInfo = NULL;
  105.     }
  106.  
  107.     if ( Scr        ) {
  108.         UnlockPubScreen( NULL, Scr );
  109.         Scr = NULL;
  110.     }
  111. }
  112.  
  113. int OpenToolAliasWindow( void )
  114. {
  115.     struct NewGadget     ng;
  116.     struct Gadget       *g;
  117.     UWORD                lc, tc;
  118.     UWORD                offx = Scr->WBorLeft,offy = Scr->WBorTop + Scr->RastPort.TxHeight + 1;
  119.  
  120.     if ( ! ( g = CreateContext( &ToolAliasGList )))
  121.         return( 1L );
  122.  
  123.     for( lc = 0, tc = 0; lc < ToolAlias_CNT; lc++ ) {
  124.  
  125.         CopyMem((char * )&ToolAliasNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
  126.  
  127.         ng.ng_VisualInfo = VisualInfo;
  128.         ng.ng_TextAttr   = &topaz8;
  129.         ng.ng_LeftEdge  += offx;
  130.         ng.ng_TopEdge   += offy;
  131.  
  132.         ToolAliasGadgets[ lc ] = g = CreateGadgetA((ULONG)ToolAliasGTypes[ lc ], g, &ng, ( struct TagItem * )&ToolAliasGTags[ tc ] );
  133.  
  134.         while( ToolAliasGTags[ tc ] ) tc += 2;
  135.         tc++;
  136.  
  137.         if ( NOT g )
  138.         return( 2L );
  139.     }
  140.  
  141.     if ( ! ( ToolAliasWnd = OpenWindowTags( NULL,
  142.                     WA_Left,          ToolAliasLeft,
  143.                     WA_Top,           ToolAliasTop,
  144.                     WA_Width,         ToolAliasWidth,
  145.                     WA_Height,        ToolAliasHeight + offy,
  146.                     WA_IDCMP,         STRINGIDCMP|BUTTONIDCMP|IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW,
  147.                     WA_Flags,         WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH,
  148.                     WA_Gadgets,       ToolAliasGList,
  149.                     WA_Title,         ToolAliasWdt,
  150.                     WA_ScreenTitle,   "ToolAlias v1.0 by mws in Feb '93",
  151.                     TAG_DONE )))
  152.         return( 4L );
  153.  
  154.     GT_RefreshWindow( ToolAliasWnd, NULL );
  155.  
  156.     return( 0L );
  157. }
  158.  
  159. void CloseToolAliasWindow( void )
  160. {
  161.     if ( ToolAliasWnd        ) {
  162.         CloseWindow( ToolAliasWnd );
  163.         ToolAliasWnd = NULL;
  164.     }
  165.  
  166.     if ( ToolAliasGList      ) {
  167.         FreeGadgets( ToolAliasGList );
  168.         ToolAliasGList = NULL;
  169.     }
  170. }
  171.  
  172.